library(maps, pos=4)
postscript("/media/Dados/trabalho/doutorado/cpdee/tese/projeto_tese/latex/img/cab25.eps",horizontal=FALSE,pagecentre=TRUE,paper="special",width = 6, height = 5,family="Bookman")
par(mai = c(0, 0, 0, 0),font=2)
y = c(33.76,39.30,42.34,41.84,39.14,41.48,32.79,39.77,42.38,29.77,39.12,34.11,35.11,25.78,44.96,30.07,40.67,40.01,33.54,40.44,38.64,37.77,47.62,27.96,38.91)
x = c(-84.42,-76.61,-71.02,-87.68,-84.51,-81.68,-96.77,-104.87,-83.10,-95.39,-94.73,-118.41,-90.01,-80.21,-93.27,-89.93,-73.94,-75.13,-112.07,-79.98,-90.24,-122.45,-122.35,-82.48,-77.02)
xt = 
c(-84.42+1, 	#1
-76.61+2.2,	#2
-71.02+2.2,	#3
-87.68+1,	#4
-84.51+1,	#5
-81.68+1,	#6
-96.77+1,	#7
-104.87+1,	#8
-83.10+1,	#9
-95.39+1,	#10
-94.73+1,	#11
-118.41+1,	#12
-90.01+1,	#13
-80.21+1,	#14
-93.27+1,	#15
-89.93+1,	#16
-73.94+2.2,	#17
-75.13+2.2,	#18
-112.07+1,	#19
-79.98,		#20
-90.24+1,	#21
-122.45+1,	#22
-122.35,	#23
-82.48+1,	#24
-77.02+2)	#25
yt =c(33.76-1,	#1
39.30-1,	#2
42.34-1,	#3
41.84-1,	#4
39.14-1,	#5
41.48+0.3,	#6
32.79-1,	#7
39.77-0.5,	#8
42.38+0.5,	#9
29.77-1,	#10
39.12-1,	#11
34.11-0.5,	#12
35.11-1,	#13
25.78-1,	#14
44.96-1,	#15
30.07-1,	#16
40.67-1,	#17
40.01-1.4,	#18
33.54-0.5,	#19
40.44-1,	#20
38.64-1,	#21
37.77-0.5,	#22
47.62-0.5,	#23
27.96-1,	#24
38.91-1.3)	#25
l = c("1.Atlanta",
"2.Baltimore",
"3.Boston",
"4.Chicago",
"5.Cincinnati",
"6.Cleveland",
"7.Dallas",
"8.Denver",
"9.Detroit",
"10.Houston",
"11.Kansas City",
"12.Los Angeles",
"13.Memphis",
"14.Miami",
"15.Minneapolis",
"16.New Orleans",
"17.New York",
"18.Philadelphia",
"19.Phoenix",
"20.Pittsburgh",
"21.St. Louis",
"22.San Francisco",
"23.Seattle",
"24.Tampa",
"25.Washington")
map('usa',proj='azequalarea',lty = 1,lwd=1,col = "grey70")
points(mapproject(list(x = x,y = y)),col="black",type="p", cex = .8, pch=19)	
text(mapproject(list(x = xt,y = yt)),col="black", cex = 0.4, labels = l)
dev.off()

